home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / mus / misc / OMED_Sizes.lha / Sizes.omed < prev   
Text File  |  1996-09-29  |  1KB  |  44 lines
  1. /*
  2.     Sizes v1.0
  3.     (c) Simon Speight 1996 - Freely Distributable
  4.  
  5.     ARexx script for OctaMED v6+ that tells you the size of
  6.     your current project in any format.
  7.  
  8.     $VER: Sizes.omed v1.0 (5.2.96)
  9.  
  10. */
  11.  
  12. nl= '0a'x
  13.  
  14. ADDRESS octamed_rexx
  15. OPTIONS RESULTS
  16.  
  17. IF ~show(l,"rexxreqtools.library") THEN DO
  18.     IF ~addlib("rexxreqtools.library", 0, -30) THEN DO
  19.         'wi_request "Please install the rexxreqtools.library." "OK"'
  20.         EXIT
  21.     END
  22. END
  23.  
  24. ARG cli
  25.  
  26. type= cli
  27.  
  28. IF (cli ~= 'SMF0') & (cli ~='MMD0') & (cli ~= 'MMD1') & (cli ~= 'MMD2') THEN DO
  29.     RESULT = rtezrequest('Sizes v1.0 'nl'(c) Simon Speight 1996'nl nl'Choose a format','S_MF0|MMD_0|MMD_1|MMD_2|_Cancel','Choose a format','rtez_flags = ezreqf_centertext|ezreqf_noreturnkey rt_pubscrname=OCTAMED')
  30.     SELECT
  31.         WHEN RESULT = 1 THEN type= 'SMF0'
  32.         WHEN RESULT = 2 THEN type= 'MMD0'
  33.         WHEN RESULT = 3 THEN type= 'MMD1'
  34.         WHEN RESULT = 4 THEN type= 'MMD2'
  35.         OTHERWISE EXIT
  36.     END
  37. END
  38.  
  39. 'sg_getfilesize 'type' currsong VAR currsong'
  40. 'sg_getfilesize 'type' multimod VAR multimod'
  41.  
  42. RESULT = rtezrequest('Sizes v1.0'nl '(c) Simon Speight 1996'nl nl'Format: 'type nl nl'Current Song:'nl currsong' bytes' nl nl'Multi-Module:'nl multimod' bytes' nl,'_Thanks','File sizes in 'type' format','rtez_flags = ezreqf_centertext rt_pubscrname=OCTAMED')
  43.  
  44.